home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -in_the_mag- / emulation / amiga / muirexx3.0 / demos / multicolumn.rexx < prev    next >
OS/2 REXX Batch file  |  1998-01-20  |  2KB  |  34 lines
  1. /* example of a multicolumn list */
  2.  
  3. MUIA_List_Active =                     0x8042391c /* V4  isg LONG              */
  4. MUIA_List_Format =                     0x80423c0a /* V4  isg STRPTR            */
  5.  
  6. MUIV_EveryTime = 0x49893131
  7. MUIV_List_Insert_Bottom = -3
  8.  
  9. address example
  10.  
  11. window TITLE """Multicolumn List Example""" COMMAND "quit" PORT example
  12.   group
  13.     list ID ALST TITLE """\033bcol 1,\033bcol 2,\033bcol 3""" ATTRS MUIA_List_Format """MIW=25 P=\033c BAR,MIW=50 P=\033c\033b BAR,MIW=25 P=\033c"""
  14.     string ID ASTR COMMAND """list ID ALST INSERT POS "MUIV_List_Insert_Bottom" STRING %s""" PORT example
  15.   endgroup
  16.   group
  17.     list ID BLST TITLE """\033bSingle column list"""
  18.     string ID BSTR COMMAND """list ID BLST INSERT POS "MUIV_List_Insert_Bottom" STRING %s""" PORT example
  19.   endgroup
  20. endwindow
  21. list ID ALST INSERT POS MUIV_List_Insert_Bottom STRING "1,2,3"
  22. list ID ALST INSERT POS MUIV_List_Insert_Bottom STRING "4,5,6"
  23. list ID ALST INSERT POS MUIV_List_Insert_Bottom STRING "7,8,9"
  24. list ID ALST INSERT POS MUIV_List_Insert_Bottom STRING "A,B,C"
  25. list ID ALST INSERT POS MUIV_List_Insert_Bottom STRING "D,E,F"
  26. list ID ALST INSERT POS MUIV_List_Insert_Bottom STRING "G,H,I"
  27. list ID BLST INSERT POS MUIV_List_Insert_Bottom STRING "This is a single column list."
  28. list ID BLST INSERT POS MUIV_List_Insert_Bottom STRING "Try selecting lines from either list."
  29. list ID BLST INSERT POS MUIV_List_Insert_Bottom STRING "This shows some of the new features of MUIRexx."
  30. list ID BLST INSERT POS MUIV_List_Insert_Bottom STRING "Aren''t we impressed?"
  31. callhook ID ALST COMMAND """string ID ASTR CONTENT %s""" PORT example ATTRS MUIA_List_Active MUIV_EveryTime
  32. callhook ID BLST COMMAND """string ID BSTR CONTENT %s""" PORT example ATTRS MUIA_List_Active MUIV_EveryTime
  33. exit
  34.